home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
util3
/
dsq10.lha
/
DiSk_Quicklog
next >
Wrap
AmigaDOS Script File
|
1995-08-19
|
967b
|
47 lines
.key DIR/A,OUTPUT/A,DATES/S,INCR/S,RESET/S
.bra {
.ket }
; $VER: DiSk_Quicklog v1.03 (29.4.95)
If {reset} EQ "reset"
Echo "Variables reset"
C:Delete >NIL: ENV:incr
Quit
EndIf
If {incr} EQ "incr"
If NOT EXISTS ENV:incr
Echo >ENV:incr "1" NOLINE
EndIf
EndIf
Echo "*nDiSk_Quicklog. © 1995 Adam Chapman*n"
Echo "Compiling directory list..."
Echo "Source: {dir}"
Echo "Dest : {output}"
If {dates} EQ "dates"
Echo "Dates : ON"
Cd {dir}
C:List >T:DiSk_QuicklogList {dir} ALL NOHEAD LFORMAT "%P%N"
Else
Echo "Dates : OFF"
Cd {dir}
C:List >T:DiSk_QuicklogList {dir} ALL NODATES NOHEAD LFORMAT "%P%N"
EndIf
Echo "*nCatalog scan complete. Now Sorting for output...*n"
If {incr} EQ "incr"
C:Sort FROM T:DiSk_QuicklogList TO {output}.$incr
C:Eval >ENV:incr2 $incr + 1
C:Delete >NIL: ENV:incr
C:Rename >NIL: ENV:incr2 ENV:incr
Else
C:Sort FROM T:DiSk_QuicklogList TO {output}
EndIf
C:Delete >NIL: T:DiSk_QuicklogList
Echo "Catalog compiled!*n"